home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / patch / powrgupd.lha / PowerGuide / AMINET15 < prev    next >
Text File  |  1996-11-09  |  1KB  |  53 lines
  1. ;
  2. ; PowerGuide 1.23 - Install Script
  3. ;
  4. ; (c) 1996 by Matthias Scheler
  5. ;
  6.  
  7. (set ProductName "PowerGuide")
  8. (set ProductVers "1.23")
  9.  
  10. (transcript #install ProductName " " ProductVers " ...")
  11.  
  12. (complete 0)
  13.  
  14. ; Use "spatch"
  15.  
  16. (working "Applying patch...")
  17. (run ("Delete T:PowerGuide ALL QUIET"))
  18. (run ("MakeDir T:PowerGuide"))
  19. (run ("spatch -oT:PowerGuide/PowerGuide -pPowerGuide121to123.pch AMINET15:Tools/PowerGuide"))
  20. (run ("Copy PowerGuide.noinfo T:PowerGuide/PowerGuide.info CLONE QUIET"))
  21. (run ("Copy Catalogs T:PowerGuide/Catalogs ALL CLONE QUIET"))
  22. (complete 50)
  23.  
  24. ; Copy files
  25.  
  26. (set @default-dest "Work:")
  27. (copyfiles
  28.  (prompt "Installing " ProductName "...")
  29.  (source "T:PowerGuide/")
  30.  (choices "PowerGuide" "PowerGuide.info" "Catalogs")
  31.  (help @copyfiles-help)
  32.  (confirm)
  33.  (set @default-dest
  34.   (askdir 
  35.    (prompt ("Please select a directory for \"%s\"." ProductName))
  36.    (help @askdir-help)
  37.    (default @default-dest)
  38.   )
  39.  )
  40.  (dest @default-dest)
  41. )
  42. (complete 75)
  43.  
  44. ; Clean up
  45.  
  46. (working "Cleaning up...")
  47. (run ("Delete T:PowerGuide ALL QUIET"))
  48. (complete 100)
  49.  
  50. ; All Done
  51.  
  52. (exit)
  53.